﻿Imports System
Imports System.Messaging
Imports System.Runtime.Serialization

Namespace System.Workflow.Runtime
    <Serializable> _
    Friend Class QueueException
        Inherits InvalidOperationException
        ' Methods
        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub

        Public Sub New(ByVal message As String, ByVal errorCode As MessageQueueErrorCode)
            MyBase.New(message)
            Me.errorCode = errorCode
        End Sub


        ' Properties
        Public ReadOnly Property ErrorCode As MessageQueueErrorCode
            Get
                Return Me.errorCode
            End Get
        End Property


        ' Fields
        <NonSerialized> _
        Private errorCode As MessageQueueErrorCode
    End Class
End Namespace

